Top 10k strings from U-Boat Hunt (1983)(Protek Computing).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TAP] /

Back to the directory listing

   3 88888888<<<<<<<<<<<<<<<<<<<<''
   2 UBOAT HUNT
   2 8888888888888
   2 888888888888
   2 (TBR*DEG):
   1 xxxxxxnnnnnnndF2
   1 xxxxnnndF2
   1 ffff):HZA:HZA<16
   1 dddddddddddddFF2
   1 US+"'N6 "+
   1 UH=UH*RAD:
   1 UH+TSS)/SF:UW:
   1 UH+TSC)/SF:US:UW+(UK*
   1 TN,D;"EXCELLENT,COMMANDER!";
   1 TD:TSS:S+(KN*
   1 TD:TSC:TS*
   1 TBR=-TBR+CR
   1 TBR-HD+CR*(TBR-HD<0
   1 T(N,D)=T(N,D)+50
   1 T(N,C)=T(N,C)+(50
   1 T(N,B)=T(N,B)+(50
   1 T$="DDDDDDDDDDDDDD":
   1 T$="DDDDDDDDDDDDDD"
   1 T$(N)="D":
   1 S}\#N#F#^#V#
   1 SPX+E,SPY:
   1 SPX+B,SPY-B:
   1 RD=RD-HPI*(RD>-H*HPI):
   1 RD=RD+HPI*(RD<H*HPI):
   1 PWB<PWD):RJ:RJ*(RJ
   1 HZ,B+N;W$(N):
   1 HPI=RAD*TN
   1 HD+TSS)/SF:W:
   1 HD+TSC)/SF:S:W+(KN*
   1 HD+(RD*RV/1E4
   1 FFFFFFFFFFFFFFF2
   1 F;"                     ":
   1 EM=DPT<TN:
   1 EM:FU:US-S:S1:UW-W:W1:
   1 E+BY,D;" ":
   1 DEG=B/RAD:
   1 BY=BY+B*(BY<C):
   1 A;"  ENEMY DISPATCHED";
   1 A,A;"                                "
   1 @HZ:HZA:DW:UI:RJ:PP:PO:UD:
   1 <<<<<<<<<<<<<<<<<<<<<'
   1 ;"or the";
   1 ;"TO ALLOW RESURFACING   "
   1 ;"Pointers";
   1 ;"Plough":
   1 ;"OUTSIDE YOUR BILLET "
   1 :UI:PWA+P4:PWB:PA-P4+CR*(PA-P4<0
   1 :KN:DPT-BY/10
   1 :EXS:DPT>GN:BO:BO
   1 :CH:US+(UK*
   1 88888888<<<<<<<<<<<<<<<<<<<<
   1 88888888<<<<<<<<<<<<<888<<88<'
   1 88888888<8<8<8<8<8<<<<<<<8<<<'
   1 88888888<88<<88<<888<88<<88<<'
   1 88888888<888<<<<<<<8<888<8<<<'
   1 88888888<888<<<<<<<8<888<88<<'
   1 88888888<888<<88<8<<<888<888<'
   1 88888888<888<<88<88<<<<<<888<'
   1 88888888<888<888<<<<<<<<<<<<<'
   1 88888888<888<888<888<8<<<<<<<'
   1 88888888<888<888<888<8<8<88<<'
   1 88888888<888<888<888<88<<8<<<'
   1 888888888888888888888888888888888888888888888888888888888888888888888888
   1 88888888''''''''''''''''
   1 2222222222222222
   1 -W/E*W/E),Y-TN,X-12
   1 -W/E*W/E),Y+W/E,X+
   1 -W*W),Y+W*C,X+
   1 -GN+DPT)/7
   1 ,X-B,Y-TN,X-B,Y-TN
   1 ,TN;"Sextant Lat:54 ";
   1 ,TN;"D.R.   Long:6  ";
   1 ,F;"RUNNING DIESELS SUBMERGED"
   1 ,E;"Pole Star";
   1 ,D;"PLEASE REMAIN ON BILLET";
   1 ,D;"FURTHER ENEMY CRAFT EXPECTED"
   1 +"                           ":
   1 *HP:DPT:DPT*(DPT>1
   1 *** Dieses Programm wurde getauscht mit: Thomas Sander, Brandenburger Str. 36, 3501 Ahnatal *** Dieses 
   1 ):PWC:PWC+P2:PWD:(PWB-PWC)*(PWB>PWC
   1 ):PO:RJ*17
   1 ):HD:RV/30
   1 ):EB:EB-P4+CR*(EB-P2<0
   1 ):DPT:DPT>10
   1 ):DI:CH+DI*RV/1E3
   1 )-CR*(HD>CR)+CR*(HD<0
   1 (T(N,C)-UW)>.02
   1 (T(N,B)-US)>.02
   1 (S1/UD):TBR:1
   1 (S1*S1+W1*W1):UD:
   1 ((PP-PO)*8
   1 #w#s#r#q#p
   1 "UBOAT HUNT"
   1 "STRUCK BY MINE"
   1 "SHELLED BY DESTROIER";
   1 "IRREPARABLY DAMAGED FROM ";
   1 "FOUNDERED ON SEABED"
   1 "BATTERY CHARGE TOO LOW ";
   1 "ANOTHER TRIP? (Y/N) ";A$:
   1 "61300",H:
   1 "60741",A:
   1 "60671",A:
   1 "60671"+B:
   1 "23658",H+B:
   1 "22808-EM*64",H:
   1 "22807-EM*64",H:
   1 "22744+EM*64",
   1 "22743+EM*64",
   1 "'ENTER' TO CONTINUE ";A$:
   1 "'ENTER' TO CONTINUE ";A$
   1 "   'ENTER' TO RETURN TO DUTY";A$:
   1         !"  &%#$%&  #$   !,-"  (*+)   #$